United Public Domain Gold 2/United Public Domain Gold 2.iso/utilities/pu713.dms/pu713.adf/UPaint/U_PAINT_1200.GFA

GFA-BASIC Amiga | 1992-09-02 | 43KB | 376 lines

GFA-AMIGAB
ILBM.LIBRARY
DIESER
VERSION
SREEN.MODUS
SCREEN.MODUS
MOUSEX
ENDIF
ZADRESSE
EZEIT
IFMOUSEX
EXIST
LIBRARY
AWFINV    DYRECTORY
AUSWAHL
BACKG
HELP2
LIBRARYNAME
ILBMBASE
SCREEN.BREITE
ILBM.TIEFE
SCREEN.MODUS
SCREEN.H
ILBM.BREITE    ILBM.H
SCREEN.FARBE
ILBM.VP.MODI
ILBM.BYTES
SCREEN.BYTES
LOOP1
SPRAYRAD
MEMADDR
D_READ
READY
ILBM.MODUS
ILBM.REG
TIEFE
NEWPLANE    FARBE.ROT
FARBE.GR
FARBE.BLAU    FARBE.RGB
CCRT.RICHTUNG
CCRT.START    CCRT.ENDE    CCRT.SECS    CCRT.MICS
LOOP2
SCREEN.ZEILE
CODE    DISK.BYTE
LOOP3    FILE_NAME
FILENAME
WINDOW
SCREE.MODUS
MSGNUM
D_WRITE
ZADRESSE
BEITS
BODY_LENGTH
IWFYO
DATENLENGHT
ILBM.LENGHT
BODYPOSITION
OLDPOS
BODYLEN    ALTERWERT
BBPLSTRUCT
BBPLSTRUCT2
PLADRESS
AZEIT
EZEIT
HLER0
LOOP4
BLITPLANES
BPLAD    SRCBITMAP
DESTBITMAP
DESTX
DESTY
SIZEX
SIZEY
MINTERM
TEMPA
BUCOL
DISKFONTBASE
FONTALT
TEXTATTR
LEN    TEXT_FONT    FONT.H
HE    FONT_H
BUFFER
BUFBYTES
FLAGS
SUPERPLANE1
SUPERW
SUPERH
EXTRAPLANE
BITMAP.TIEFE
LINIE
GERADE
BOGEN
SPRAY
RECHTECK    RECHTECK1
KREIS
KREIS1
BRUSH    ILBM_CMAP    ILBM_CAMG
COORDS
PLUSBYTE
HLER3
WFAABY
PALETTE
ELLIPSE
PELLIPSE
BUFFER
COLOR.NR
COLOR.ANZEIGE
ALLOCMEM    BLTBITMAP
FREERASTER
.ARRAY
XOPOS
YOPOS
XUPOS
YUPOS
MOD_B
MOD_H
AWFAA
MAUSZEIGER
SBM2    ILBM_BODY
LINEB    FARBE.ROT
FARBE.GR
FARBE.BLAU
VORAB
_AUFBAUEN
AUSWAHLFENSTER
HAUPTSCHLEIFE
LADE_IFF_ILBM
LESE_CHUNK
MAUS_ZEIGER1    LESE_BMHD    LESE_CMAP    LESE_CAMG    LESE_CRNG    LESE_GRAB    LESE_DEST    LESE_SPRT    LESE_CCRT    LESE_BODY
LESE_UNBEKANNT
MAUS_ZEIGER2
SAVE_IFF_ILBM
AWF_AA
SAVEWINDOWTOIFF
_AUFBAU
AUSWERTUNG
PALETTE_01    PALETTE01
WERKZEUGFENSTER_01
ENDE2    VARIABLEN
WERKZEUGFENSTER_02
COORDS
TASTATURAUSWERTEN
POINT
MAUSAUSWERTUNG
GETIFFPMSG
SAVE_IFF_ILBM2
SAVE_CHUNK    SAVE_BMHD    SAVE_CMAP    SAVE_CAMG    SAVE_BODY
TESTLEN
MAKE_BUFFER
BUFFER_TO_SCREEN
SCREEN_TO_BUFFER
CLOSE_BUFFER
OPEN_BUFFER
SAVE_BITMAP
BITMAP_LADEN
BITMAP_SPEICHERN
FREEMEM
EXITIF    BLTBITMAP
OPEN_BUFFER2
CLOSE_BUFFER2
OPEN_BUFFER_TEST_2
CLOSE_BUFFER_TEST_2
PO_SCREEN_TO_BUFFER
PO_BUFFER_TO_SCREEN
PAINT
LINIE_Z
WERKZEUGAUSWAHL
SPRAY_Z
SPRAY
WERKZEUG
WERKZEUG_ANZEIGE
PROCWERKZEUG_ANZEIGE
WERKZEUG_DEFINE
WERKZEUG_AUSWAHL
PAINTBOXAUSWAHL
WERKZEUG_INAKTIVIEREN
SPRAY_DEFINE
REQ_BOX
PASTE
256_FARBEN
PROC256_FARBEN    PROCEDURE
PALETTE
PALETTE_LADEN
PALETTE_SPEICHERN
FARBEINSTELLUNG
FEF_AUFBAU
FARBAUSWAHL
FARBAUSWAHL_ANZEIGE
GET_RGB4
TEXT_Z
OPENDISKFONT
AVAILFONTS
COORDS2
ELLIPSE
GERADE
ABOUT
COORDS_DURING_PAINT
COORDS_DURING_PAINT_1
````` Andreas Meinert `````` Itzehoe `````````````````` 2/8/94 `````````````
 library$="ilbm.library"+CHR$(0)
 ilbmbase%=OpenLibrary(V:library$,0)
 IF ilbmbase%=0
   ALERT 0," Konnte ilbm.library nicht
ffnen ",1,"OK",ok%
   EDIT
 ENDIF
U_PAINT!
HIRES|LORES!
6144   !+256
 MENU 23,256+16+64
 help2$="deutsch"
PICTURE F
LOADF
    !IFF-ILBMF
!BITMAPF!
    !--------FF
    !--------FF
    !--------FF
    !--------FF
SAVEF
    !IFF-ILBMF
!BITMAPF-
!---------F
!---------F
!---------F
!---------F
----------F
PALETTEFF
!LOADF
!SAVEF
!-------F
!CHANGEF
!PICK COLORF
EXTRASF
!CLEAR SCREENF
!-------------F
    !-POINTERFF
!WORKBENCH  F1F
!-------------F
----------F
+QQUITF
ABOUTF
BRUSH F
LOAD   F-
!-IFF-ILBMF
!---------F
!-ICONF
!-SPRITEF
!-BOBFT
    !-GET&PUTFF
SAVE   F-
!-IFF-ILBMF
!---------F
!-ICONF
!-SPRITEF
!-BOBFP
    !-GET&PUTFF
    ---------FF
SIZEF
    !-STRETCHF
!-ROTATEF
!-FLIPF
EXTRAF-
!-HANDLEF
!---------F
!---------F
!---------F
!---------F
MODEF
    ---------F
    ---------F
    ---------F
    ---------F
    ---------FF
    ---------FF
 Gesammtfl
 colorboxrahmen
 oben und unten rechts
 Koordinaten
Werkzeugerahmen
 Werkzeuge
+ Aktuelle Malfarbe
buffer
aktuelle Maldefinition
' Pinselbreite
' Farbe
 NEW PICTURE ? !
OK|NO!
FARBAUSWAHL
WERKZEUGAUSWAHL
 PAUSE 16
farbauswahl
 PAUSE 16
 LOAD PALETTE !
LOAD!
 SAVE PALETTE !
SAVE!
 New_File
 Old_File
GFA_BASIC____3.52_PRGF
U_PAINT  VERSION 1.80F
ANDREAS MEINERTF9
GES. SCHOLL ALLEE 115F
25524 ITZEHOEF9
GERMANY              F
           12.09.1994F
 PAUSE 16
 PBOX 77*sbm|+1,rbyo%+5,95*sbm|-1,rbyo%+13
deutschF
deutschF!
deutschF
englishF
francaisFF
     PAUSE 16
 PAUSE 20
Color
    .>FF
    /LF!
   GOSUB text
   Fy
 PBOX rbxl%*sbm|+76*sbm|,rbyu%-11,rbxr%*sbm|-76*sbm|+1,rbyu%-3
 PBOX 209*sbm|,rbyo%+5,218*sbm|,rbyo%+13
 PBOX 232*sbm|,rbyo%+5,241*sbm|,rbyo%+13
SizeF
 PAUSE 16
    D F!
 LOAD IFF-ILBM !
LOAD!
 1005=Mode Old_File   1006=Mode New_File
 Puffer einrichten
 und f
r die
 Chunk_Bereiche unterteilen
ILBMF
       MENU 23,256+16+64
 Keine ILBM Datei !!!!
 Keine 240 Bytes??? !
 PAUSE 8
BMHDF
CMAPF
CAMGF
BODYF
 Can`t load FORM (h>256) !
 Can`t load FORM (w>640) !
 lo_Res
 hi_Res
 Darstellungsparameter bilden
 nicht komprimierte Daten
 ByteRun1_Encoding
 Compressionmode
     unknown !
 PBOX 209*sbm|,rbyo%+5,218*sbm|,rbyo%+13
 PBOX 232*sbm|,rbyo%+5,241*sbm|,rbyo%+13
CodingF
 SAVE IFF-ILBM  !
SAVE!
 1006=New_File 1004=Read_Write
 1005=Old_File
 Konnte Datei nicht
ffnen ! !
 ezeit%=TIMER
 PRINT (ezeit%-azeit%)/200
   -farbe.gr
n%*16-farbe.blau%/128
 SAVE BITMAP !
 SAVE !
 LOAD BITMAP !
 LOAD !
 in Bytes   *8=Pixel_Anzahl
s.b%*8*s.h%/8
    i4Fe
 ANDERES BILDFORMAT !
 OK !
 QUIT ? !
 YES | NO !